; calc the length of list recursive
(defun our-length (lst)
	(if (null lst)
		0
		(+ (our-length (cdr lst)) 1)))

(print (our-length '(1 2 3 3 3 4  1 31 23 12 3 1 3123 1 23 1 231 2 1)))
